TEMPORALS
Photo from the British Library, Mubarak Al Sabah on horseback
Kuwait is the mother and father, Earth and it’s supplies. She is the past, present and future…
— Jaber Al-Ahmad Al-Sabah
emirs <- read.csv("archetypes/heads-of-state/kuwait-emirs.csv", header = TRUE, stringsAsFactors = FALSE)
emirs
speakers <- read.csv("archetypes/heads-of-state/kuwait-speakers.csv", header = TRUE, stringsAsFactors = FALSE)
speakers
#Abbreviate the First Names for better visualization
speakers$Name <- sub("[a-z]+", ".", speakers$Name)
#Assign an id for each individual person (Each person may held office multiple times)
speakers$Name <- factor(speakers$Name, levels = c("A. Al-Ghanim", "A. Al-Saqr", "S. Al-Abdulrazzaq", "A. Al-Serhan", "K. Al-Ghunaim", "M. Al-Adasani", "A. Al-Sadoun", "J. Al-Kharafi", "A. Al-Rashid", "M. Al-Ghanim"))
speakers <- transform(speakers,id=as.numeric(Name))
#For the Emirs of Kuwait, we do not need to do much wrangling
emirs$id <- as.numeric(rownames(emirs))
theme_opts <- theme(
plot.title = element_text(color = "black", size = 23, face = "bold"),
plot.subtitle = element_text(color = "black", size = 18),
plot.caption = element_text(color = "#555555", size = 10),
axis.title.y = element_blank(),
axis.text.y = element_blank(),
# axis.text.x = element_text(vjust = 12),
panel.border = element_blank(),
panel.background = element_blank(),
#panel.grid.minor = element_blank(), # remove minor gridlines
panel.grid.major.x = element_blank(), # remove x (vertical) gridlines
legend.title = element_blank(), # remove legend title
legend.text = element_text(color = "black", size = 8),
legend.position='bottom'
)
v1 <- ggplot(emirs, aes(x = Reign.start, y = id, color = Branch)) +
geom_segment(aes(xend = Reign.end, yend = id, color = Branch), size = 6) +
geom_text(aes(label = Name, hjust = ifelse(id < 4, -1.5, 1.1)), size = 6, show.legend = FALSE) +
scale_color_manual(values = c("Before Mubarak Al-Sabah" = "#35aa56", "Al Ahmad" = "#004266", "Al Salim" = "#D62828")) +
labs(title = "His Highness, the Emirs of Kuwait",
subtitle = "Timeline of Reign")+
theme_bw() +
theme_opts
girafe(ggobj = v1, width_svg = 16, height_svg = 9,
options = list(opts_sizing(rescale = TRUE, width = 0.9)))
v2 <- ggplot(speakers, aes(x = Start, y = id, color = Political.Faction)) +
geom_segment(aes(xend = End, yend = id, color = Political.Faction), size = 6) +
geom_text(aes(label = Name, hjust = ifelse(id < 5, -0.5, 1.1)), size = 6, show.legend = FALSE) +
scale_color_manual(values = c("Chamber of Commerce" = "#35aa56", "Muslim Brotherhood" = "#FCB322", "Independent" = "#004266", "Populist bloc" = "#D62828")) +
labs(title = "Speakers of Kuwait National Assembly",
subtitle = "Timeline as Speakers")+
theme_bw() +
theme_opts
girafe(ggobj = v2, width_svg = 16, height_svg = 9,
options = list(opts_sizing(rescale = TRUE, width = 0.9)))
Reference: Photo 49/1/21 Title': The Shaikh waiting, Koweit.' Photographer: Unknown Pages: 20r Author: East India Company, the Board of Control, the India Office, or other British Government Department Usage terms: Open Government Licence